home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4437 / tut.11 / l1.asc next >
Text File  |  1987-04-21  |  730b  |  35 lines
  1. 10 rem -----------------------------------
  2. 20 rem ---- Test for Connected Drives ----
  3. 30 rem -----------------------------------
  4. 40 cls
  5. 50 rem
  6. 60 rem ---- ERROR TESTING ----
  7. 70 rem
  8. 80 on error goto 310
  9. 90 rem
  10. 100 rem ---- DRIVE TESTING ----
  11. 110 rem
  12. 120 DRVS=drvmap
  13. 130 D$=bin$(DRVS)
  14. 140 A$=right$(D$,len(D$)-1)
  15. 150 CONNECT=len(A$)
  16. 160 CON=CONNECT
  17. 170 dim DRV$(CONNECT)
  18. 180 rem
  19. 190 rem ---- LOOP ----
  20. 200 rem
  21. 210 for F=1 to CONNECT
  22. 220 DV$=mid$(A$,CON,1)
  23. 230 DRV$(F)=DV$
  24. 240 print F;" is ";DRV$(F) : wait 20
  25. 250 dec CON
  26. 260 next F
  27. 270 print "You have ";F-1;" DRIVES CONNECTED"
  28. 280 rem
  29. 290 rem ---- ERROR ROUTINE ----
  30. 295 end 
  31. 300 rem
  32. 310 print "ERROR";errn
  33. 320 print "AT LINE";errl
  34. 330 error errn
  35.